COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defun insert (x q)
C00003 ENDMK
C⊗;
(defun insert (x q)
       (if (null q)
	   (progn
	    (rplaca q x)
	    (rplaca q x))
	   (progn
	    (rplacd (cdr q) x)
	    (rplacd q x))))

(defun remove (q)
       (if (null q)
	   nil
	   (let ((answer (car q)))
		(rplaca q (caar q))
		answer)))

(let ((setq x 3)) 4)